program login;
{$APPTYPE CONSOLE}
uses
DrBobCGI, Base64;
begin
if (Authorization = '') then
begin
writeln('HTTP/1.0 401 Unauthorized');
writeln('content-type: text/html');
writeln('WWW-Authenticate: Basic realm="/DrBob"')
end
else
begin
writeln('HTTP/1.0 200 OK');
writeln('content-type: text/html');
writeln;
writeln('');
writeln('');
writeln('['+Authorization+']');
if Pos('Basic ',Authorization) = 1 then Delete(Authorization,1,6);
writeln('');
writeln('['+Authorization+']');
writeln('
');
writeln('['+UnBase64(Authorization)+']');
writeln('');
writeln('')
end
end.